home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok15 / seafarers_manual / source / averageage.mod next >
Text File  |  1993-11-04  |  833b  |  39 lines
  1. MODULE AverageAge;   (* Calculate average age *)
  2.  
  3.   (* From the book "Modula-2  A Seafarer's Manual and Shipyard Guide" *)
  4.   (* Page 67   adapted "Amiga M2Modula-2"   04 Mar 1988 *)
  5.  
  6. FROM InOut IMPORT WriteLn,
  7.                   WriteString,
  8.                   ReadCard;
  9. FROM RealInOut IMPORT WriteReal;
  10.  
  11. VAR
  12.   i : CARDINAL;
  13.   average : REAL;
  14.   CrewAge : ARRAY [1..25] OF CARDINAL;
  15.   
  16. BEGIN
  17.   WriteLn;
  18.   WriteString ("Enter crew ages: ");
  19.   WriteLn;
  20.   
  21.   FOR i := 1 TO 25 BY 1 DO
  22.     ReadCard (CrewAge[i]);   (* get age from keyboard *)
  23.     WriteLn;
  24.   END;
  25.   
  26.   average := 0.0;
  27.   FOR i:= 1 TO 25 BY 1 DO   (* sum ages *)
  28.     average := average + FLOAT (CrewAge[i]);
  29.   END;
  30.   
  31.   average := average / 25.0;   (* calculate average *)
  32.   WriteLn;
  33.   WriteString ("Average age = ");
  34.   WriteReal (average,10,2);
  35.   WriteLn;
  36.   
  37. END AverageAge.
  38.  
  39.